import XMonad

import XMonad.ManageHook
import XMonad.Hooks.ManageHelpers

import XMonad.Util.EZConfig
import XMonad.Util.Ungrab

main :: IO()
main = xmonad $ myConfig

myConfig = def
    { modMask     = mod4Mask
    , terminal    = "xterm"
    , borderWidth = 0
    , workspaces  = myWorkspaces
    , manageHook  = myManageHook
    }
   `additionalKeysP`
   [ ("M-f", spawn "emacsclient -c")
   ]

myManageHook :: ManageHook
myManageHook = composeAll
    [ className =? "chromium-browser" --> doShift "2"
    , isDialog                        --> doFloat
    ]

myWorkspaces = [ "1", "2", "3", "4", "5", "6", "7", "8", "9", "0" ]
